#!/usr/bin/env tclsh

puts "数组示例"


#数组赋值
set arr(1) 12
set arr(2) 13
set arr(baby) on 

puts "\$arr(1)=$arr(1), \$arr(2)=$arr(2), \$arr(baby)=$arr(baby)" ; #输出



